-- card: 11382 from stack: in -- bmap block id: 8293 -- flags: 0000 -- background id: 10567 -- name: CDU -- part 1 (button) -- low flags: 00 -- high flags: 8000 -- rect: left=466 top=4 right=44 bottom=502 -- title width / last selected line: 0 -- icon id / first selected line: 1011 / 1011 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Home ----- HyperTalk script ----- on mouseUp visual effect zoom in go home end mouseUp -- part 2 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=279 top=35 right=108 bottom=352 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: KnobA ----- HyperTalk script ----- on mouseUp global KnobPositionA if the shiftKey is down then -- Rotate the knob counter clockwise. if KnobPositionA > 1 then subtract 1 from KnobPositionA else -- We can't rotate beyond the four positions. beep exit mouseUp end if else -- Rotate the knob clockwise. if KnobPositionA < 4 then add 1 to KnobPositionA else -- We can't rotate beyond the four positions. beep exit mouseUp end if end if lock screen -- Erase the original knob. choose select tool drag from 276,35 to 355,115 doMenu "Clear Picture" push card go to card Knobs choose lasso tool -- The following code requires that the position of the knob -- graphics on the "Knob" card be exactly aligned. DO NOT CHANGE !! -- When you click with the Command Key you get the whole object. -- Thank goodness !!! put ((KnobPositionA - 1) * 115) + 53 into H click at H,68 with CommandKey doMenu "Copy Picture" pop card doMenu "Paste Picture" drag from H,68 to 314,45 choose browse tool unlock screen end mouseUp -- part 7 (field) -- low flags: 81 -- high flags: 0004 -- rect: left=66 top=121 right=207 bottom=233 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 256 -- line height: 16 -- part name: Knob Info -- part 8 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=437 top=75 right=148 bottom=510 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Knob Help ----- HyperTalk script ----- on mouseUp -- playVW "SE1:Data:VideoWorks:Art:Clip Animation:Arrows:LU Arrow" -- ,vwnoclear,vwlocation,265,150 set visible of card field "Knob Info" to true wait for 3 seconds set visible of card field "Knob Info" to false end mouseUp -- part 9 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=309 top=126 right=156 bottom=341 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Brightness ----- HyperTalk script ----- on mouseUp set visible of card field "BRT Test" to true wait for 2 seconds choose select tool drag from 105,41 to 274,162 repeat for 30 times doMenu "Darken" end repeat repeat for 40 times doMenu "Lighten" end repeat doMenu "Clear Picture" wait for 1 second set visible of card field "BRT Test" to false choose browse tool end mouseUp -- part 11 (field) -- low flags: 81 -- high flags: 0000 -- rect: left=103 top=56 right=158 bottom=281 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: BRT Test -- part 12 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=96 top=210 right=283 bottom=169 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: KnobB ----- HyperTalk script ----- on mouseUp global KnobPositionB if the shiftKey is down then -- Rotate the knob counter clockwise. if KnobPositionB > 1 then subtract 1 from KnobPositionB else -- We can't rotate beyond the four positions. beep exit mouseUp end if else -- Rotate the knob clockwise. if KnobPositionB < 10 then add 1 to KnobPositionB else -- We can't rotate beyond the four positions. beep exit mouseUp end if end if lock screen -- Erase the original knob. choose select tool drag from 95,209 to 170,283 doMenu "Clear Picture" push card go to card Knobs choose lasso tool -- The following code requires that the position of the knob -- graphics on the "Knob" card be exactly aligned. DO NOT CHANGE !! -- When you click with the Command Key you get the whole object. -- Thank goodness !!! -- Remember, there's two rows of these buttons !! if KnobPositionB < 6 then put ((KnobPositionB - 1) * 100) + 53 into H click at H,183 with CommandKey else put ((KnobPositionB - 6) * 100) + 53 into H click at H,272 with CommandKey end if doMenu "Copy Picture" pop card doMenu "Paste Picture" -- Remember, there's two rows of these buttons !! if KnobPositionB < 6 then drag from H,183 to 131,217 else drag from H,272 to 131,217 end if choose browse tool unlock screen end mouseUp -- part 13 (field) -- low flags: 80 -- high flags: 0004 -- rect: left=63 top=126 right=217 bottom=311 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 14 -- style flags: 256 -- line height: 18 -- part name: Wait -- part contents for card part 7 ----- text ----- Click on the knob to rotate clockwise. Shift-Click to rotate counter clockwise. -- part contents for card part 11 ----- text ----- The BRT control changes the brightness of the display. This is just an illustration of that feature. -- part contents for card part 13 ----- text ----- Pardon me while I clean up the two knobs to position 1.